home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 February / Software of the Month Club 1996 February.iso / pc / dos / dtp / show30 / show30.exe / EXAMPLE3.BAT < prev    next >
Encoding:
DOS Batch File  |  1993-01-15  |  1.2 KB  |  59 lines
  1. @echo off
  2.  
  3. show-pcx mercury.pcx blind xy 0 50 
  4. gtext "Which planet looks much like" 1 5 16 120
  5. gtext "the Earth's Moon ?" 2 5 16 120
  6. gtext " 1 - Mercury" 5 21 14 90
  7. gtext " 2 - Venus" 6 21 14 90
  8. gtext " 3 - Jupiter" 7 21 14 90
  9. gtext " 4 - Saturn" 8 21 14 90
  10. gtext "Please enter 1-4 ?" 9 21 16 120
  11.  
  12. KEY 1234
  13. IF ERRORLEVEL 4 GOTO NO
  14. IF ERRORLEVEL 3 GOTO NO
  15. IF ERRORLEVEL 2 GOTO NO
  16. IF ERRORLEVEL 1 GOTO YES
  17.  
  18. :YES
  19. gtext " 1 - Mercury" 5 21 14 30  
  20. gtext "EXCELLENT" 11 21 16 90  
  21. PLAY EXCELLEN.VOC
  22. clear mercury.pcx RANDOM
  23. GOTO NEXT1
  24.  
  25. :NO
  26. gtext "ALMOST" 10 21 16 90
  27. delay 2
  28. clear mercury.pcx CRUSH r
  29.  
  30. :NEXT1
  31. show-pcx Venus.pcx SAND xy 0 50
  32. gtext "Which planet is almost the" 1 5 16 110
  33. gtext "same size as the Earth ?" 2 5 16 110
  34. gtext "1 - Mercury" 5 21 14 40
  35. gtext "2 - Venus" 6 21 14 40
  36. gtext "3 - Jupiter" 7 21 14 40
  37. gtext "4 - Saturn" 8 21 14 40
  38. gtext "Please enter 1-4 ?" 9 21 16 110
  39.  
  40. KEY 1234
  41. IF ERRORLEVEL 4 GOTO NO1
  42. IF ERRORLEVEL 3 GOTO NO1
  43. IF ERRORLEVEL 2 GOTO YES1
  44. IF ERRORLEVEL 1 GOTO NO1
  45.  
  46. :YES1
  47. gtext "2 - Venus" 6 21 14 30
  48. gtext "EXCELLENT" 11 21 16 110
  49. PLAY EXCELLEN.VOC
  50. clear Venus.pcx RANDOM
  51. GOTO NEXT2
  52.  
  53. :NO1
  54. gtext "ALMOST" 10 21 16 110
  55. delay 2
  56. clear Venus.pcx CRUSH r
  57.  
  58. :NEXT2
  59.